COMMON I(50),Z(50),JJ
1       FORMAT(' TYPE X,Y1,Y2,...ETC. <CR> '/
	1 '  WHERE   X=THE NUMBER OF EQUAL DIVISIONS OF Y'/
	1 '   AND    Y=RHYTHMIC VALUES.  (E.G.  2. = DOTTED HALF)'/
	1 '		 H=HELP '/)
5       FORMAT('  ')
2       FORMAT(12F)
3       FORMAT(' THE NOTE VALUE =',F8.4)
6       FORMAT(50A1)
4       TYPE 5
	TYPE 1
	TYPE 5
	ACCEPT 6,I
	IF(I(1).EQ.'H'.OR.I(1).EQ.'?')GO TO 11
	CALL RR
	X=Z(1)
	Y=0
	IF(Z(2).EQ.0)GO TO 9
88      DO 8 K=2,20
8       IF(Z(K).NE.0)Y=Y+4./Z(K)
9       V=4.*(X/Y)
	TYPE 5
	TYPE 3,V
	GO TO 4
11      TYPE 12
	GO TO 4
12      FORMAT(
	1 '  UP TO 10 VALUES FOR "Y" CAN BE TYPED.'/
	1 ' FOR EXAMPLE:'/
	1 ' TO GET 7 IN THE TIME OF A NORMAL TRIPLET (12TH NOTE) '/
	1 ' TIED TO A HALF TIED TO A SIXTEENTH, TYPE:'/
	1 '     7  12 2 16 <CR>'/
	1 ' TO GET 11 IN THE TIME OF A DOTTED QUARTER, TYPE:'/
	1 '     11 4.  <CR>'/)
	END
	SUBROUTINE RR
	COMMON I(50),X(50),JJ
	DO 1 K=1,50
1       X(K)=0
	JJ=0
	M=1
24      DO 20 K=M,50
20      IF(I(K).EQ.','.OR.I(K).EQ.' ')GO TO 21
	GO TO 100
21      N=0
	DO 22 J=M,K-1
	IF(I(J).EQ.'.')GO TO 23
22      N=N*10+(I(J)-'0')/536870912
100     F=N
25      JJ=JJ+1
	X(JJ)=F
CC      X(JJ+1)=0
	M=K+1
	DO 26 K=M,50
26      IF(I(K).NE.' ')GO TO 27
	RETURN
27      M=K
	IF(M.LE.50)GO TO 24
	STOP
23      F=N
	B=4.0/F
	F=B+B/2.
	F=4./F
	GO TO 25
	END